Scriptbox - Find your Script, VBScript VBScripts VB-Script VB-Scripts Scripting

Loading

:: { Category } ::

0-9


	Search Options: Determine if a Computer is Running Windows Server 2003 and if Service Pack 1 is Installed Content of Determine if a Computer is Running Windows Server 2003 and if Service Pack 1 is Installed.vbs MD5 Hash: 1994D62CB5A4B0ED963463D373069D31
	strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objItem in colItems If InStr(objItem.Caption, "Server 2003") Then strText = objItem.Caption If objItem.ServicePackMajorVersion = "1" Then strText = strText & ", Service Pack 1" End If Wscript.Echo strText Else Wscript.Echo "This computer is not running Windows Server 2003." End If Next

© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at ::